home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir39 / borfix.zip / TESTEMS.PAS < prev    next >
Pascal/Delphi Source File  |  1989-08-28  |  656b  |  23 lines
  1. uses ems,crt;
  2. var
  3. x,y,z,a,b,c,frame,pages,upages,v,f,error:word;
  4. base:string;
  5. ver:string[3];
  6. begin
  7. clrscr;
  8. if not emm_driver=1 then writeln('driver not instlled');
  9. error:=version(v,f);
  10. ver:=char(v+48)+'.'+char(f+48);
  11. writeln('EMM Version ',ver,' installed');
  12. error:=unalloc_p(pages,upages);
  13. writeln(upages,' pages are unallocated and and there are ',pages,' total pages');
  14. error:=get_frame(frame);
  15. base:=hex_string(frame);
  16. writeln('The base page address is ',base);
  17. a:=1;
  18. c:=34;
  19. error:=alloc_all;
  20. if error<>0 then writeln('problem allocating memory');
  21. error:=dealloc_all;
  22. if error<>0 then writeln('problem deallocating memory');
  23. end.